home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / _SoundClose.au3 < prev    next >
Text File  |  2007-09-08  |  981b  |  24 lines
  1. #include <Sound.au3>
  2. ;open sound file
  3. $sound = _SoundOpen(@WindowsDir & "\media\Windows XP Startup.wav", "Startup")
  4. If @error = 2 Then
  5.     MsgBox(0, "Error", "The file does not exist")
  6.     Exit
  7. ElseIf @error = 3 Then
  8.     MsgBox(0, "Error", "The alias was invalid")
  9.     Exit
  10. ElseIf @extended <> 0 Then
  11.     $extended = @extended ;assign because @extended will be set after DllCall
  12.     $stText = DllStructCreate("char[128]")
  13.     $errorstring = DllCall("winmm.dll","short","mciGetErrorStringA","str",$extended,"ptr",DllStructGetPtr($stText),"int",128)
  14.     MsgBox(0, "Error", "The open failed." & @CRLF & "Error Number: " & $extended & @CRLF & "Error Description: " & DllStructGetData($stText, 1) & @CRLF & "Please Note: The sound may still play correctly.")
  15. Else
  16.     MsgBox(0, "Success", "The file opened successfully")
  17. EndIf
  18.  
  19. If _SoundClose($sound) = 1 Then
  20.     MsgBox(0, "Success", "The sound was closed successfully")
  21. Else
  22.     MsgBox(0, "Error", "The file was not closed successfully")
  23. EndIf
  24.